home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zi.d64 / txt.screens < prev    next >
Text File  |  2007-03-01  |  2KB  |  123 lines
  1. ╚┼╠╨ ╙├╥┼┼╬╙ ╫╔╘╚ ╘┼╪╘
  2.  
  3. BY ─ICK ╦LINGENS
  4. ─UTCH ├╧═┴╠ ╒SERS ╟ROUP
  5.  
  6.  
  7. ╘HESE DAYS USER FRIENDLY PROGRAMS ARE
  8. A MUST. ├╧═┴╠ PROVIDES US A WAY TO
  9. CONNECT A LOT OF HELP SCREENS AT OUR
  10. PROGRAMS.
  11.  
  12. ┼XAMPLE:
  13.  
  14. ╔╬╨╒╘ "╚ELP? (1-5)": N
  15. //
  16. HELP(N)
  17. //
  18. ╨╥╧├ HELP(NUM) ├╠╧╙┼─
  19.  ╒╙┼ SYSTEM
  20.  ─╔═ THIS'SCREEN$ ╧╞ 1505
  21.  ─╔═ HELP'SCREEN$ ╧╞ 1505
  22.  ╧╨┼╬ ╞╔╠┼ 9,"HELP"+╙╘╥$(NUM),╥┼┴─
  23.  ╥┼┴─ ╞╔╠┼ 9: HELP'SCREEN$
  24.  GETSCREEN(THIS'SCREEN$)
  25.  SETSCREEN(HELP'SCREEN$)
  26.  ├╠╧╙┼ ╞╔╠┼ 9
  27.  ╔╬╨╒╘ ┴╘ 24,1: "╘YPE [╥┼╘] ":C$
  28.  SETSCREEN(THIS'SCREEN$)
  29. ┼╬─╨╥╧├ HELP
  30.  
  31. ┬UT THE HELP SCREENS ARE LOADED FROM
  32. DISK: IT TAKES LOADING TIME, AND,
  33. ESPECIALLY IF ALL THE HELP FILES ARE
  34. READ INTO AN ARRAY, DIMMED WITH
  35.  
  36.    ─╔═ HELPSCREEN$(5) ╧╞ 1505
  37.  
  38. COMPUTER MEMORY (7505 BYTES).
  39.  
  40. ┴VOID LOADING TIME AND LOSS OF MEMORY
  41. BY SAVING THE HELP SCREENS ╫╔╘╚ YOUR
  42. PROGRAM. ╔T CAN BE DONE WITH THE
  43. PACKAGE ╘┼╪╘.
  44.  
  45. ╙UPPOSE YOU HAVE 5 HELP SCREENS ON
  46. DISK IN THE FILES HELP1..HELP5. ╬OW
  47. LINK THE PACKAGE ╘┼╪╘ ONTO YOUR
  48. PROGRAM, TYPE 
  49.  
  50.    ╠╔╬╦ "PKG.TEXT"
  51.  
  52. AND ADD THE FOLLOWING PROGRAM LINES
  53.  
  54. ╨╥╧├ ADD'HELPS(N) ├╠╧╙┼─
  55.  ╒╙┼ TEXT
  56.  ─╔═ SCREEN$ ╧╞ 1505
  57.  REWRITE
  58.  ╞╧╥ T:=1 ╘╧ N ─╧
  59.   ╧╨┼╬ ╞╔╠┼ 9,"HELP"+╙╘╥$(T),
  60.   ╥┼┴─ ╞╔╠┼ 9: SCREEN$
  61.   WRITELN(SCREEN$)
  62.   ├╠╧╙┼ ╞╔╠┼ 9
  63.  ┼╬─╞╧╥ T
  64. ┼╬─╨╥╧├ ADD'HELPS
  65.  
  66. ╬OW TYPE 
  67.  
  68.    ╙├┴╬
  69.    ADD'HELPS(5)
  70.  
  71. AND ╙┴╓┼ YOUR PROGRAM (HELP SCREENS
  72. INCLUDED).
  73.  
  74. ╥EADING THE SCREENS WITHIN YOUR
  75. PROGRAM IS EASY:
  76.  
  77. ╔╬╨╒╘ "╚ELP? (1-5)": N
  78. //
  79. HELP(N)
  80. //
  81. ╨╥╧├ HELP(NUM) ├╠╧╙┼─
  82.  ╒╙┼ TEXT
  83.  ╒╙┼ SYSTEM
  84.  ─╔═ THIS'SCREEN$ ╧╞ 1505
  85.  ─╔═ HELP'SCREEN$ ╧╞ 1505
  86.  GETSCREEN(THIS'SCREEN$)
  87.  RD(NUM,HELP'SCREEN$)
  88.  SETSCREEN(HELP'SCREEN$)
  89.  ╔╬╨╒╘ ┴╘ 24,1: "╘YPE [╥┼╘] ":C$
  90.  SETSCREEN(THIS'SCREEN$)
  91.  //
  92.  ╨╥╧├ RD(SNUM,╥┼╞ SCREEN$)
  93.   //
  94.   // SEQUENTIAL READ FROM TEXT BUFFER
  95.   RESET
  96.   NR:=0
  97.   ╥┼╨┼┴╘
  98.    NR:+1
  99.    READLN(SCREEN$)
  100.   ╒╬╘╔╠ NR=SNUM
  101.  ┼╬─╨╥╧├ RD
  102. ┼╬─╨╥╧├ HELP
  103.  
  104. ┬ECAUSE THE NUMBER OF BYTES FREE IN
  105. THE PACKAGE IS MORE THEN 15050 BYTES
  106. A TOTAL OF 10 SCREENS CAN BE SAVED
  107. WITH ONE PROGRAM.
  108.  
  109. ╙EE FOR MORE EXAMPLES THE PROGRAMS
  110. ┬╒╔╠─-╙├╥┼┼╬╙ EN ╙╚╧╫-╙├╥┼┼╬╙ ON THE
  111. DISK.
  112. ╘HE PROGRAM ┬╠╧├╦-┼─╔╘╧╥ USES TWO
  113. SCREENS WHICH ARE SAVED WITH THE
  114. PROGRAM.
  115.  
  116. ╬OTE: ╘HE ╘┼╪╘ PACKAGE VERSION 1.02
  117. NOW HAS A NEW FUNCTION
  118.  
  119.    ╞╒╬├ BYTES'FREE
  120.  
  121. ╙EE THE PROGRAM ┼╪┴═.╘┼╪╘, ALSO ON
  122. DISK.
  123.